Міністерство освіти і науки України
Хмельницький національний університет
Кафедра системного програмування
Лабораторна робота №1
з програмування
на тему:
«Вказівники»
Лабораторна робота №1
Тема: вказівники.
Мета: навчитися програмувати з використанням вказівників та динамічних змінних, створювати та опрацьовувати черги та стеки.
Завдання
Дано число D і «покажчики» P1 й P2 на початок і кінець черги (якщо черга порожня, то P1=P2=nil). Записати елемент зі значенням D у кінець черги та вивести нові адреси початку і кінця черги.
uses crt;
type vkaz=^cherga;
cherga=record
num:integer;
next:vkaz
end;
procedure add(var a:vkaz);
var temp:vkaz;
begin
new(temp);
temp^.next:=a;
temp^.num:=random(100);
a:=temp;
end;
procedure addnew(var a:vkaz; D:integer);
var temp:vkaz;
begin
new(temp);
temp^.next:=a;
temp^.num:=D;
a:=temp;
end;
function tail(a:vkaz):vkaz;
begin
while a<>nil do
begin
tail:=a;
a:=a^.next;
end;
end;
procedure create(var a,p1,p2:vkaz; var n:integer);
var i:integer;
begin
write('vvedit kilkist chysel: ');
readln(n);
if n<>0 then
begin
for i:=1 to n do
begin
add(a); write(a^.num,' ');
if i=1 then p1:=a;
a:=a^.next;
end;
p2:=tail(a);
writeln;
writeln('pochatok: ',seg(p1^),ofs(p1^));
writeln('kinets: ',seg(p2^),ofs(p2^));
end
else writeln('pochatok i kinets = NIL');
end;
procedure newP(var a,p1,p2:vkaz; n:integer);
begin
if n=0 then p1:=a;
p2:=tail(a);
writeln('pochatok: ',seg(p1^),ofs(p1^));
writeln('kinets: ',seg(p2^),ofs(p2^));
end;
procedure free(var a:vkaz; p1:vkaz);
var temp:vkaz;
begin a:=p1;
while a<>nil do
begin
temp:=a;
a:=a^.next;
dispose(temp);
end;
end;
var el,p1,p2:vkaz; n,d:integer;
begin clrscr; randomize;
create(el,p1,p2,n);
write('vvedit chyslo D: '); readln(d);
addnew(el,d);
newP(el,p1,p2,n);
free(el,p1);
repeat until keypressed
end.
//
Висновок. Виконавши лабораторну роботу, я навчився працювати з вказівниками та динамічними змінними, створювати черги та додавати нові елементи, виділяти пам'ять для динамічних змінних та звільняти її, а також виводити адреси початку та кінця черги.
